home *** CD-ROM | disk | FTP | other *** search
- object main: Tmain
- Left = 323
- Top = 190
- BorderStyle = bsSingle
- Caption = 'Dateien Nummerieren'
- ClientHeight = 295
- ClientWidth = 394
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 4
- Top = 128
- Width = 176
- Height = 13
- Caption = 'Dateien werden wie folgt umbenannt:'
- end
- object Label2: TLabel
- Left = 4
- Top = 144
- Width = 189
- Height = 13
- Caption = '[Bezeichner1] [Counter] [Bezeichner2] .*'
- end
- object Label3: TLabel
- Left = 6
- Top = 168
- Width = 65
- Height = 13
- Caption = 'Bezeichner 1:'
- end
- object Label12: TLabel
- Left = 262
- Top = 278
- Width = 126
- Height = 13
- Caption = '(C) by Ulli Meybohm , 1998'
- end
- object Label4: TLabel
- Left = 8
- Top = 230
- Width = 25
- Height = 13
- Caption = 'Start:'
- end
- object Label5: TLabel
- Left = 6
- Top = 196
- Width = 65
- Height = 13
- Caption = 'Bezeichner 2:'
- end
- object DriveComboBox1: TDriveComboBox
- Left = 6
- Top = 2
- Width = 191
- Height = 19
- DirList = dirlist
- TabOrder = 6
- end
- object dirlist: TDirectoryListBox
- Left = 6
- Top = 24
- Width = 191
- Height = 97
- FileList = filelist
- ItemHeight = 16
- TabOrder = 7
- end
- object filelist: TFileListBox
- Left = 204
- Top = 2
- Width = 185
- Height = 237
- ItemHeight = 13
- MultiSelect = True
- TabOrder = 8
- end
- object newname: TEdit
- Left = 74
- Top = 164
- Width = 125
- Height = 21
- TabOrder = 0
- end
- object Button1: TButton
- Left = 12
- Top = 266
- Width = 117
- Height = 25
- Caption = '&Dateien Nummerieren'
- TabOrder = 4
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 130
- Top = 266
- Width = 69
- Height = 25
- Caption = '&Ende'
- TabOrder = 5
- OnClick = Button2Click
- end
- object start: TSpinEdit
- Left = 74
- Top = 226
- Width = 125
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 2
- Value = 1
- end
- object newname2: TEdit
- Left = 74
- Top = 192
- Width = 125
- Height = 21
- TabOrder = 1
- end
- object Button3: TButton
- Left = 302
- Top = 242
- Width = 89
- Height = 25
- Caption = 'Alle Ausw�hlen'
- TabOrder = 3
- OnClick = Button3Click
- end
- end
-